home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 4
/
FreshFish_May-June1994.bin
/
new
/
amigalibdisks
/
d985
/
newtool
/
install newtool
< prev
next >
Wrap
Text File
|
1994-04-04
|
2KB
|
95 lines
; Installation script for NewTool
(transcript "Installing NewTool...")
(copylib
(prompt "Install WhatIs library.")
(help @copylib-help)
(source "LIBS/whatis.library")
(dest "libs:")
(confirm)
)
( if (= (exists "LIBS:ReqTools.library" (noreq)) 0)
(message "You need to get a copy of ReqTools.library\n"
"and copy it to your libs: directory")
)
(set name
(askdir
(prompt "Install NewTool where?")
(help @askdir-help)
(default "C:")
)
)
(copyfiles
(source "NewTool")
(dest name)
)
(set name
(askdir
(prompt "Install NewTool Prefs where?")
(help @askdir-help)
(default "SYS:Prefs")
)
)
(copyfiles
(source "NewToolPrefs")
(dest name)
)
(copyfiles
(source "NewToolPrefs.info")
(dest name)
)
(set prefs
(askchoice
(prompt "Install NewTool prefs where?")
(help @askchoice-help)
(choices "ENV: and ENVARC:" "S" )
(default 0)
)
)
(if (= prefs 0) ; conditional test
(
(copyfiles
(source "NewTool.prefs")
(dest "ENV:")
)
(copyfiles
(source "NewTool.prefs")
(dest "ENVARC:")
)
)
(copyfiles
(source "NewTool.prefs")
(dest "S:")
)
) ; end of if
(set what
(askbool
(prompt "Copy FileTypes to S:")
(help "It's up to YOU.")
(choices "Yes" "No")
(default 0)
)
)
(if (= what 1) ; conditional test
(copyfiles
(source "FileTypes")
(dest "S:")
)
)
(set @default-dest name)
(exit)